home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ WMP 3.xpl < prev    next >
Text File  |  2001-11-29  |  2KB  |  66 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH 1"="Program Options\Built in Windows Apps\Windows Media Player"
  5. "UIPATH 2"="Internet\Windows Media Player"
  6. "NAME"="Advanced Options"
  7. "LANGUAGE"="VBScript"
  8. "VERSION"="1.16"
  9. "TEXT 1"="Allow automatic Codec downloads"
  10. "TEXT 2"="Enable DVD functionality"
  11. "DESCRIPTION 1"="Option #1: Codecs are what Windows Media Player uses to decode encoded media files (such as MP3, MPEG, WMA etc.). If you try to play a file that Windows Media Player does not have a codec for, enabling this option will allow it to download one from Microsoft's web site automatically. Disabling this will make it ask you first."
  12. "DESCRIPTION 2"="Option #2: When enabled, this allows you to play DVD videos in Windows Media Player. For this to work, you must already have a supported third-party DVD playing program. This only functions in Windows Media Player 6.x under Windows 95/98 and in 8.x under Windows XP -  it does not work at all under 7.x."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17.  
  18.  
  19.  
  20. sV1="HKCU\Software\Policies\Microsoft\WindowsMediaPlayer\NoCodecDownload" ' DW
  21. sV2="HKCU\Software\Microsoft\MediaPlayer\Player\Settings\EnableDVDUI" 'STR - yes/no 
  22.  
  23. 'Called when the Plugin is started
  24. SUB Plugin_Initialize  
  25.   i=RegReadValue(sV1)
  26.   if i<>1 then SetUIElement 1,true
  27.  
  28.   i=RegReadValue(sV2)
  29.   if i="yes" then SetUIElement 2,true
  30. END SUB
  31.  
  32. 'Called when the Plugin should validate the Data the user has entered
  33. SUB Plugin_CheckData(ElementIndex)
  34. END SUB
  35.  
  36.  
  37.  
  38. 'Called when the Plugin should apply the changes
  39. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  40.  Call Wrt(1,sV1)
  41.  
  42.  if GetUIElement(2)=true then
  43.     Call RegWriteValue(sV2,"yes",1)
  44.  else
  45.     Call RegWriteValue(sV2,"no",1)
  46.  end if
  47. END SUB
  48.  
  49. Sub Wrt(ITM,VAL)
  50.  b=GetUIElement(ITM)
  51.  if b=false then
  52.     Call RegWriteValue(VAL,1,2)
  53.  else
  54.     s=RegReadValue(VAL)
  55.     if IsEmpty(s)=false then
  56.        Call RegDeleteValue(VAL)
  57.     end if
  58.  end if
  59. end sub
  60.  
  61.  
  62. 'Called when the Plugin is about to be removed from memory
  63. SUB Plugin_Terminate
  64. END SUB
  65.  
  66.